(define (over-or-under num1 num2)
  (if (< num1 num2)
      -1
      (if (> num1 num2)
          1
          0)))

; ;; Tests
(over-or-under 1 2)

; expect -1
(over-or-under 2 1)

; expect 1
(over-or-under 1 1)

; expect 0
(define (make-adder num) 'YOUR-CODE-HERE)

; ;; Tests
(define (make-adder num) (lambda (x) (+ num x)))

(adder 8)

; expect 13
(define (composed f g) (lambda (x) (f (g x))))

(define lst 'YOUR-CODE-HERE)

(define (remove item lst)
  (cond 
    ((null? lst)
     lst)
    ((= item (car lst))
     (remove item (cdr lst)))
    (#t
     (cons (car lst) (remove item (cdr lst))))))

; ;; Tests
(remove 3 nil)

; expect ()
(remove 3 '(1 3 5))

; expect (1 5)
(remove 5 '(5 3 5 5 1 4 5 4))

; expect (3 1 4 4)
